' Test al First Graphics Test.txt b+ 2021-03-03
' OK dang it! I made some special arrangements in SB1 to make a deck of pts
' to shuffle those points and to access the next point to be dealt with rndPt command  
paper 0;0;0
cls
top = 688217
[
	cnt = a[cnt,1]

	'ink 0;0;0;1
	'fbox 0;0;xmax;ymax
	'jmp cnt > 300
	
	rndpt rp
	
	x1 = m[rp,xmax]
	y1 = int[d[rp,ymax]]
	
	'x2 = ( rnd * xmax + c ) % xmax 
	'y2 = ( rnd * ymax + c ) % xmax
	w = rnd[100]
	'h = rnd * 67

	'every 3rd color is green white or blue with rnd? alpha
	if eq[m[cnt,3],0]
		r = 0
		g = rnd[255]
		b = 0
	ei eq[m[cnt,3],1]
		rnd1 = int[rnd[2]]
		if rnd1
			r = 255
			g = 255
			b = 255
		el
			r = 0
			g = 0
			b = 0
		fi
	el
		r = 0
		g = 0
		b = rnd[255]
	fi	
	a = int[rnd[255]]
	ink r;g;b;a
	'box x1;y1;w;h
	'pix x1;y1
	fcirc x1;y1;w
	'fbox x1;y1;w;h
	wait .01
]